home *** CD-ROM | disk | FTP | other *** search
/ MacFormat España 15 / macformat_15.iso / Shareware Internet / HyperCard / Band & Product Namer 0.19 CK / stack_-1.xml < prev    next >
Extensible Markup Language  |  1996-03-18  |  2KB  |  28 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in.19 CK</name>
  5.     <id>-1</id>
  6.     <cardCount>6</cardCount>
  7.     <cardID>5815</cardID>
  8.     <listID>4187</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>--Copyright ¬© 1994 by Charles Kellyon OpenStackpalette "navigator","417,354"end OpenStackon sorter -- Charles Kelly 94-12-20put 0 into theDeletedrepeat with x = the number of bg flds down to 1set cursor to busyif style of bg fld x = "scrolling" thenput x && "Sorting"sort lines of bg fld xset scroll of bg fld x to 0---- Remove Duplicate linesput x && "Deleting Duplicate Lines     Deleted So Far:" & thedeletedrepeat with y = the number of lines of bg fld x down to 1set cursor to busyget line y of bg fld xif it is empty then delete line y of bg fld xif it = aabove thendelete line y of bg fld xadd one to thedeletedput x && "Deleting Duplicate Lines     Deleted So Far:" & thedeletedend ifput it into aaboveend repeatend ifend repeatput "Compacting Stack"domenu "compact stack"Repeat with u = 50 to 65play harpsichord tempo 900 Uend repeatput "Finished,  deleted " & thedeletedend sorteron Namer --Charles Kelly 94-12-20put empty into bg fld  nameput the short name of target into btnNamerepeat with x = 1 to the number of words of btnNameput word x of btnName into theVarput any word of bg fld theVar & space after bg fld nameend repeatend Namer</script>
  17.     <background id="4487" file="background_4487.xml" name="C.Kelly'sBandNamer" />
  18.     <background id="4853" file="background_4853.xml" name="C.Kelly'sWordMaker" />
  19.     <background id="5162" file="background_5162.xml" name="C.Kelly'sBandNamer" />
  20.     <background id="6073" file="background_6073.xml" name="Charles I. Kelly RS" />
  21.     <card id="5815" file="card_5815.xml" marked="false" name="" owner="6073" />
  22.     <card id="5593" file="card_5593.xml" marked="false" name="" owner="5162" />
  23.     <card id="2129" file="card_2129.xml" marked="false" name="" owner="5162" />
  24.     <card id="2508" file="card_2508.xml" marked="false" name="" owner="4487" />
  25.     <card id="3798" file="card_3798.xml" marked="false" name="" owner="4487" />
  26.     <card id="5073" file="card_5073.xml" marked="false" name="" owner="4853" />
  27. </stack>
  28.